home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Alerts.asm next >
Assembly Source File  |  1990-05-10  |  410b  |  27 lines
  1. *
  2. *    Alert.asm (of PCQ Pascal)
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file contains the glue routines for the functions
  6. *    defined in Include/Exec/Alerts.i.  So far, that's just
  7. *    Alert()
  8. *
  9.  
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _AbsExecBase
  14.  
  15.     XREF    _LVOAlert
  16.     XDEF    _Alert
  17. _Alert
  18.     movem.l    a5/d7,-(sp)
  19.     move.l    12(sp),a5
  20.     move.l    16(sp),d7
  21.     move.l    _AbsExecBase,a6
  22.     jsr    _LVOAlert(a6)
  23.     movem.l    (sp)+,a5/d7
  24.     rts
  25.  
  26.     END
  27.